home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Macintosh Easy Open / Documentation / Developer / Interfaces / PInterfaces / Translation.p < prev    next >
Encoding:
Text File  |  1994-12-12  |  3.8 KB  |  139 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Translation.p
  3.  
  4.      Copyright:    © 1984-1994 by Apple Computer, Inc.
  5.                  All rights reserved.
  6.  
  7.      Version:    Built by:            anonymous
  8.                  From:                Translation.i, revision 9, dated 6/21/94
  9.                  With Interfacer:    1.1d4e2
  10.  
  11.      Bugs:        Report bugs to Radar component “System Interfaces”, “Latest”
  12.                  List the version information from above in Problem Description.
  13.  
  14. }
  15.  
  16. {$IFC UNDEFINED UsingIncludes}
  17. {$SETC UsingIncludes := 0}
  18. {$ENDC}
  19.  
  20. {$IFC NOT UsingIncludes}
  21.  UNIT Translation;
  22.  INTERFACE
  23. {$ENDC}
  24.  
  25. {$IFC UNDEFINED __TRANSLATION__}
  26. {$SETC __TRANSLATION__ := 1}
  27.  
  28. {$I+}
  29. {$SETC TranslationIncludes := UsingIncludes}
  30. {$SETC UsingIncludes := 1}
  31.  
  32. {$IFC UNDEFINED REZ }
  33.  
  34. {$IFC UNDEFINED __TYPES__}
  35. {$I Types.p}
  36. {$ENDC}
  37. {    ConditionalMacros.p                                            }
  38. {    MixedMode.p                                                    }
  39. {        Traps.p                                                    }
  40.  
  41. {$IFC UNDEFINED __FILES__}
  42. {$I Files.p}
  43. {$ENDC}
  44. {    OSUtils.p                                                    }
  45. {    SegLoad.p                                                    }
  46.  
  47. {$IFC UNDEFINED __COMPONENTS__}
  48. {$I Components.p}
  49. {$ENDC}
  50.  
  51. {$IFC UNDEFINED __TRANSLATIONEXTENSIONS__}
  52. {$I TranslationExtensions.p}
  53. {$ENDC}
  54. {    Memory.p                                                    }
  55. {    Quickdraw.p                                                    }
  56. {        QuickdrawText.p                                            }
  57. {            IntlResources.p                                        }
  58. {    Components.p                                                }
  59. {$SETC gestaltTranslationPPCAvail := 2}
  60. {$SETC gestaltTranslationGetPathAPIAvail := 3}
  61.  
  62. TYPE
  63.     DocOpenMethod = INTEGER;
  64.  
  65.  
  66. CONST
  67.     domCannot                    = 0;
  68.     domNative                    = 1;
  69.     domTranslateFirst            = 2;
  70.     domWildcard                    = 3;
  71.  
  72.  
  73. TYPE
  74.     TypesBlock = ARRAY [0..63] OF OSType;
  75.  
  76.     TypesBlockPtr = ^OSType;
  77.  
  78. {$SETC TranslationScrapProgressDialogID := -16555}
  79.     {$ALIGN MAC68K}
  80.     FileTranslationSpec = PACKED RECORD
  81.         componentSignature:        OSType;
  82.         translationSystemInfo:    Ptr;
  83.         src:                    FileTypeSpec;
  84.         dst:                    FileTypeSpec;
  85.     END;
  86.     {$ALIGN RESET}
  87.     FileTranslationSpecArrayPtr = ^FileTranslationSpec;
  88.  
  89.  
  90. FUNCTION GetFileTypesThatAppCanNativelyOpen(appVRefNumHint: INTEGER; appSignature: OSType; VAR nativeTypes: FileType): OSErr;
  91.     {$IFC USES68KINLINES}
  92.     INLINE $701C, $ABFC;
  93.     {$ENDC}
  94. FUNCTION ExtendFileTypeList(originalTypeList: FileType; numberOriginalTypes: INTEGER; VAR extendedTypeList: FileType; VAR numberExtendedTypes: INTEGER): OSErr;
  95.     {$IFC USES68KINLINES}
  96.     INLINE $7009, $ABFC;
  97.     {$ENDC}
  98. FUNCTION CanDocBeOpened(targetDocument: FSSpec; appVRefNumHint: INTEGER; appSignature: OSType; nativeTypes: FileType; onlyNative: BOOLEAN; VAR howToOpen: DocOpenMethod; VAR howToTranslate: FileTranslationSpec): OSErr;
  99.     {$IFC USES68KINLINES}
  100.     INLINE $701E, $ABFC;
  101.     {$ENDC}
  102. FUNCTION GetFileTranslationPaths(VAR srcDocument: FSSpec; dstDocType: FileType; maxResultCount: INTEGER; resultBuffer: FileTranslationSpecArrayPtr): INTEGER;
  103.     {$IFC USES68KINLINES}
  104.     INLINE $7038, $ABFC;
  105.     {$ENDC}
  106. FUNCTION GetPathFromTranslationDialog(theDocument: FSSpec; theApplication: FSSpec; typeList: TypesBlockPtr; VAR howToOpen: DocOpenMethod; VAR howToTranslate: FileTranslationSpec): OSErr;
  107.     {$IFC USES68KINLINES}
  108.     INLINE $7037, $ABFC;
  109.     {$ENDC}
  110. FUNCTION TranslateFile(sourceDocument: FSSpec; destinationDocument: FSSpec; howToTranslate: FileTranslationSpec): OSErr;
  111.     {$IFC USES68KINLINES}
  112.     INLINE $700C, $ABFC;
  113.     {$ENDC}
  114. FUNCTION GetDocumentKindString(docVRefNum: INTEGER; docType: OSType; docCreator: OSType; kindString: Str63): OSErr;
  115.     {$IFC USES68KINLINES}
  116.     INLINE $7016, $ABFC;
  117.     {$ENDC}
  118. FUNCTION GetTranslationExtensionName(translationMethod: FileTranslationSpec; extensionName: Str31): OSErr;
  119.     {$IFC USES68KINLINES}
  120.     INLINE $7036, $ABFC;
  121.     {$ENDC}
  122. TYPE
  123.     GetScrapDataProcPtr = ProcPtr;  { FUNCTION (requestedFormat: ScrapType; dataH: Handle; srcDataGetterRefCon: UNIV Ptr): OSErr; }
  124.  
  125.  
  126. FUNCTION TranslateScrap(sourceDataGetter: GetScrapDataProcPtr; sourceDataGetterRefCon: UNIV Ptr; destinationFormat: ScrapType; destinationData: Handle; progressDialogID: INTEGER): OSErr;
  127.     {$IFC USES68KINLINES}
  128.     INLINE $700E, $ABFC;
  129.     {$ENDC}
  130. {$ENDC}
  131.  
  132. {$SETC UsingIncludes := TranslationIncludes}
  133.  
  134. {$ENDC} {__TRANSLATION__}
  135.  
  136. {$IFC NOT UsingIncludes}
  137.  END.
  138. {$ENDC}
  139.